home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 122
/
122side4.d64
/
b.gallery 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-29
|
5KB
|
193 lines
100 poke53280,0:poke53281,0:print"[147]"
130 :
140 poke55,0:poke56,64:clr:a$=""
142 dv=peek(186):ifdv<8thendv=8
144 dim an$(12,13)
145 gosub60000
155 def fnd(i)=20-(len(an$(x,i))/2)
160 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
170 sys57812"package.o",dv,0:poke780,0:poke781,80:poke782,195:sys65493
180 sys57812"gallery 1.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
190 poke251,64:poke252,224:poke253,204:sys51456
195 poke252,224:poke253,204:sys51459
200 ip=50000:unpack=51456:hgr=51459
210 ps=50006:ba=50009
220 open2,dv,2,"gallery 1 text,p,r"
222 j=1:k=0:fori=0to1:sysip,2,40:i=st
224 ifa$="*"thenj=j+1:k=0:goto228
226 k=k+1:an$(j,k)=a$
228 next:close2
230 readnp:dim r$(11),c(11)
240 forx=1tonp:readr$(x),c(x)
250 next
260 syshgr
270 forx=1tonp
280 gosub1810
285 fh=0:ifleft$(r$(x),2)="u."thenfh=1
290 sys57812r$(x),dv,0:poke780,0:poke781,0:poke782,64:sys65493
310 gosub1910:ifa$="q"ora$="[209]"thengosub1250
312 gosub2000
320 e(x)=peek(53281)
340 kk=0:poke198,0
355 ifz3=0then360
357 z4=z4+1:z4=z4and15
358 poke53281,z4
360 kk=kk+1:geta$:ifa$=""andkk<800then355
370 ifa$="q"ora$="[209]"thengosub1250
380 ifa$="s"ora$="[211]"then 470
390 ifa$<>chr$(133)then410
400 z1=z1+1:z1=z1and15
405 poke53280,z1:goto340
410 ifa$<>chr$(134)then416
412 z2=z2+1:z2=z2and15
415 poke53281,z2:goto340
416 ifa$<>chr$(135)then420
417 z3=1-z3:ifz3=0thenpoke53281,e(x)
419 goto340
420 syshgr:print"[147]":poke198,0:next x
430 goto270
440 :
450 rem save koala pic
460 :
470 sys hgr
480 poke53280,0:poke53281,0
490 print"[147][154]":poke214,11:print
500 print" [211]ave this unpacked picture? (y[154]/n[154])":poke198,0
510 geta$:ifa$<>"y"anda$<>"n"then510
520 ifa$="y"then560
530 goto1110
550 :
560 print"[147][154]":poke214,9:print
570 print" [201]nsert save disk and enter a filename."
580 :
590 print" [206]ame : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]pic ";
600 ln%=10:sp$=" "
610 gosub690:ifnm$=""then1110
612 print"[154] save drive #: (8/9/0/1/2/3/4/5/6/7)
614 [161]a$:[139]a$[178]""[167]614
616 [139]a$[179]"0"[176]a$[177]"9"[167]614
618 [151]50178,[197](a$)[171]10[172]([197](a$)[179]8)
620 nm$[178][200]([199](129)[170]"pic "[170]nm$[170]sp$,15)
650 [137]820
680 [143] --- input routine ---
690 nm$[178]"":x%[178]0:c%[178][194](646)
700 [153]"print#tocmd";:[151]646,c%
710 [161]a$:[139]a$[178]""[167]710
720 a%[178][198](a$)
730 [139]a%[178]20[175]x%[167]x%[178]x%[171]1:nm$[178][200](nm$,[195](nm$)[171]1):[153]" cmdcmd";:[137]700
740 [139]a%[178]20[167]710
750 [139]a%[178]13[167][153]" ":[142]
760 [139]x%[178]ln%[167]710
770 [139]a$[179]" "[176]a$[177]"z"[175]a$[179]"atn"[176]a$[177]"(NULL)"[176]a%[178]34[167]710
780 nm$[178]nm$[170]a$:[153]""a$;:x%[178]x%[170]1:[137]700
790 :
800 [143] -- check for 'file exists' --
810 :
820 [159]15,dv,15,"r0:"[170]nm$[170]"="[170]nm$:[132]15,er,er$:[160]15
830 [139]er[179][177]62[167][141]1160:[137]1110
840 :
850 [143] --- save pic ---
860 :
920 [141]2000:nm$[178]nm$[170]",p,w"
930 [158]ps,nm$:[158]hgr
950 :
960 [143] --- check for errors ---
970 :
980 [159]15,dv,15:[132]15,er,er$,y$,z$:[160]15
990 [139]er[167][141]1160:[137]490
1000 :
1010 [143] -- everything ok ---
1020 :
1030 [151]53280,0:[151]53281,0
1040 [153]"loadcont":[151]214,7:[153]
1050 [153]" (NULL)aving complete."
1060 [153]" right$f necessary, put the disk in"
1070 [153]" the drive and press (NULL)(NULL)atnlenvalcont."
1080 [161]a$:[139]a$[179][177]" "[167]1080
1090 [159]15,dv,15,"r0:package.o=package.o":[132]15,er:[160]15
1100 [139]er[179][177]63 [167] 1040
1110 [158]hgr:[137]420
1120 :
1130 :
1140 :
1150 [143] --- print dos error msg ---
1160 :
1170 [151]53280,.:[151]53281,.:[153]"load for str$ right$ (NULL) (NULL) val (NULL) (NULL) (NULL) (NULL) !
1180 poke214,10:print
1190 a$="[152][197]rror #"+str$(er)+"[152],"+er$
1200 x%=22-len(a$)/2:printtab(x%);a$
1210 poke214,21:print
1220 print"[152] [208]ress [211][208][193][195][197][152] to continue."
1230 geta$:ifa$<>" "then1230
1240 return
1250 o=peek(53270)and16
1255 ifothensys51459
1260 poke53281,0:poke53280,0
1270 print"[147][154] [193]re you sure you want to quit? (y[154]/n[154])"
1280 poke198,0:wait198,1:getag$
1290 ifag$="y"orag$="[217]"then1330
1295 ifothensys51459
1300 return
1320 rem quit
1330 goto40000
1380 rem data <title>,<border color>
1390 data 9
1400 data norbert.shp,0
1402 data aspen.shp,0
1410 data vera.shp,0
1420 data alps.shp,0
1430 data the taeping.shp,14
1440 data baby.shp,1
1450 data rag doll.shp,0
1460 data seascape.shp,14
1470 data house.shp,0
1500 :
1770 print"";
1800 :
1810 poke53281,0:poke53280,0
1820 print"[147][154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1830 forqx=1to13
1840 print"[221]"tab(38)"[221]":next
1850 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1860 forlx=217to217+26:pokelx,(peek(lx)or128):next
1870 print"[159]"
1872 printtab(fnd(1))an$(x,1)
1880 fori=2to12
1882 print"[155]"tab(fnd(i))an$(x,i)
1886 next
1900 return
1910 kk=0
1915 poke214,15:print:print"[154] [215]hile the slide is showing..."
1916 print" [198]1 [158]- changes border color"
1917 print" [198]3 [158]- changes background color"
1918 print" [198]5 [158]- toggles light show"
1919 print" [211] [158]- takes you to [211][193][214][197] routine"
1920 print" [209] [158]- quits"
1925 poke214,23:print
1930 print"[154][208]ress [209] to quit - [193]ny other to continue[145]"
1940 kk=kk+1:geta$:ifa$<>""orkk>1000thenreturn
1950 goto1940
1980 :
1990 :
2000 print"[147]";:iffhthenpoke254,0:sysba:goto2040
2020 poke251,64:poke252,224:poke253,204
2030 sysun
2040 poke53280,c(x):poke252,224:poke253,204:syshgr:return
2050 return
10000 open15,8,15,"s0:b.gallery 1":close15:save"b.gallery 1",8:end
40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
60000 print"[147]":z$=" [152] ":poke214,10:print
60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to8:printz$:next
60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 z$(0)="[212][200][197] [204][207][193][196][211][212][193][210] [199][193][204][204][197][210][217] #1":z$(1)="by [215]alt [200]arned"
60040 z$(3)="([195]) 1994 by [211]oftdisk [208]ublishing"+chr$(13)
60050 z$(3)="[212]his program is the copyrighted work
60060 z$(4)[178]"of (NULL)oftdisk (NULL)ublishing. right$t is not"
60070 z$(5)[178]"shareware or in the public domain."
60090 [151]214,12:[153]
60100 [129]i[178]0[164]5:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]